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UUUZG9 Gli3s CFBU UFCT STts $B4 9 <KKPT RBUFF PTR 
UUU4e OU REUF LuV 64 
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UGU4E23 * -_— oe ee OS See - - = - - = - = —_ =a - ed Cad =~ ear - rd on -™ 
ee if SET UP FOR WURMAL RUNNING “AT LEVEL 15 
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UVOUb1S Ue9s UFBO i b >+$5 a | mm ; 
OUU614 Ba ecies fe TULOZA CALL LVSTe¢LV$UCeMSSLNK ? WRONG INPUT 
Gz94 FFbCO G0O3 
L296 D36U GU0U K 
GO2c9s% OFBOU 
_ Ue¥Yy 1042 ; mJ tes fe _ . * 
GUUELDd ee ek $b CALL ZVSLHs IDEN INPUT DEVICE iD 
Gz9A FoCU v003 
U29C D380 OLOD x 
b29t UF&O 
a Gé9F GFC4 F | os 
GUGolo OgAu 94%OU UOFC4 LUK $R1lo<IDEN GET MODEL 
UUOOLT UgAhe 1LABU L294 bLEZ bR1ly<TO102A WRONG MODEL 
UUUols UeA4 Y99T7U 2363 Chik dR1,=2°2363! 
UOColY GgAo O3UU0 UZ94 BG <TOLU2A TOO BIG 
 OulE2Z0 U2Ax 9970 2360. CMR $R1,=2°2360! 
OULVL2L U2ZAA O98O | T bNE >+SA _ eae . oe 
U0UC2d UgAn G87U UUOD LOK dR1s=Z'O0000! LOAD DEVICE Iu FOR 40 Mb 
UUGb23 UdgAv 99T7UL 236l DA Civik SRle9=2*2361! 
UGUod* GeZAF O98U . 71 DINE >+$A 
UUL625 UdgnuU Y8TU BUGU LDK SkKls=Z*s0008 ID FOR 80 MB 
UULb20 ULebed 9ITU 2362 DA CMR Rl e=L'23629 
ULG627 UéZs4 U98KG  - I bINE >+5A - ; or | 
GULE2b Ue2bd G8TU 4000 LUR Sk1l,=Z"40008 ID FOR 150 Mb 
UUG629 Uestr 9976 2363 SA CMR dR1,=2°2363° 
UUUE3U G29 0960 - | BNE >+3A 
UGU63L C2bA Y8BTL COOO . LOUK SRLs=Z*CoOO!® {R FOR 300 MB 
UUV63e Cent bev] SA b =SKRLe=Lt3FFFE NVALID ID 
7 . GUgbv SFFF - 7 
GUL035 Cébe 0500 0294 boT <TOLOZA._ ; 
UU6634 U2CO- GFOU UFC4 2Tk $R1,<IDEN | J DEN OKs STOKc_ IT 
UUOO35 ; Sota tad io CALL £LVSTeLZVSETCeoMSILP INSTALL LOGIC PLUG 
U2cCée ‘FaCU 0003 
Uél4 V38L UVUU0U x 
Uglo OF&8U 
' GZL7 109b o eee _— ; 
vUU636 a | CALL ZVSinNeBITE CURRENT DRIVE 
Ueclse FbCU QUu03 | 
UgCA L380 OGLU x 
U2ZCC  UFBU 
. GZCD OFAC ps ; Be pce (ease | aon 
OUU6037 . sete TOLOZC CALL ZVH1 eo ZVSTC oMSDONE "Y* WHEN DONE 
GUgck FbCU Yu03 
UégvUO L380 JOOU A 
Ugbe UFSU 
Ucv3 lOEA | ene 
UUUo36 G2v4 0380 ObLUb LiNU »b54<YSNOG oe 
UUUS39 O2bdo vVeCt BC <TO1L02C "N® REPLY 
OUUb64U Gévr U2by | DC <S+ HAF *Y* REPLY : 
UJ004l Cgbs wBLO ULFAC LUK $R39<BITE SET LNDEX TO vEVICE 
UUG64e UgVA V380 VUF5 LIN $659<CDCH : SET CHANS FOR THIS DEV 
UOUC4S G2evC BABU oét5 SKM $R39<TOLO269=290003" IN TAG COMMANY 
Ugbk U003 
O0U644 GevF ABUU UFFDb $8 LURK BR2 9 <SXTFEFF — 
GUU645 U¢gtl AFUO OFE7 OTR RZ 9<TEMPA INITIALIZE a 
VUU6460 Udts U3b6U0 OC50 _ LN $B59<TAGI | | OE 
UU0647 GUdtS VOU | 101026 DC Z*Du00® | TAG COMMAND ( | 
OUV640 OUzeto 9800 UFE7 LU $R1le<TEMPA GET BUS IN DATA. Ne ob 
VUU649 C2EB’ 995¢ CMR SR1—9=$R2 ALL F*'S MEANS NO TRANSFER : 
OU065U UZEY 0980 | 1 biNE >+SA - OK 
YVUULSL CUgtA D380 UC&S LiVJ 659<TDER ee 
UUUo5e Cee O108 | | bc Z*O108* MODULE NOT SELECTED 
UUL653 Ugtrv 960U UFC4 SA XOR Rl o<IDEN- ys 
GUU654 Udgktrk 82vU1 Lo =$Ris=Z*EOOO! TEST ID BITS 
— Geb EQOU sate | 
OUU655 GdFl GS5bO 1 boF >+$A _ OK 
UUVU656 Ueke L380 UCE5 LivJ $65_9<TDER ; . | 
GUUGo5S7 G2F4 O11l4 1 Z2*OL14? | WRONG ID ; 
OU065s GUegrkb 9860 OFE7 $A LUR SRL 9<TEMPA GET BUS IN AGAIN 
OUV659 GUeFT 1048 | SUR SR1 9b GET DEV NUMB 
UUU66U L¢eFe 96U0U OFAC XUR SRL o<BITE AND COMPARE WiTH SFLECTED 
QOU0b661 GeFA 82D] Lis =$R1ls=Z*OO0F 
| Gért OOUF | 
ULV66~Z UdkC 0580 i bF >+SA ; OK 
VUU663 U2FLU L380 OLBS LVS $659<TDER ae ee 
UUL664 UgFrF Ull6 DC Z2*0116! ADDRESS ERROR 
O0L065 U30U0 L380 UCDD $A Liv $B5_9<TDTE END OF TEST 
UU0666 U3Ue U1O0zg DC Z2*0102' 
UVU0667 | * 
O0U0656 % 
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UVUU67TU * TEST G2Z00 WKAP JEST 
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OUV067TS U3U3 &700 LFCe TO2Z00 . CL <FLAG ; pAcethnn “oe Son 
000674 G30d B700 OFC] CL <ERFL_ - CLEAR ERROR FLAG 
UUU6T5 G3B0T Y87TE UZ00 LD $R1e=Z'02008 : 
UUU6T6 U309 YFOO OFEB oT R1o<TEST LOAD TEST NUMo 
ULUETT 0306 U38U0 UCbD LAS $659<TDST *START TEST? 
GOGEeTo U3bv ¥87U V100 LOR $R1Ly=Z*D1008 INITIAL DATA wRAP 
GU06TY U3L0F YFOU 0313 - STK $R1s<TO200b8 TASK wORD 
OU068U U31lL L380 UC5U TOZOGA LivJ $659<TAGI TAG IN. 
GU0681L 6313 D100 T0g00b8 DC Z'°Di00" WRAP TEST 
UU0682 0314 +F800 OFET ! LOUK pRTs<TEMPA GET *]5* DATA 
OUU663 U31l60 7048 SUK SRT 98 | ee em 
G00684 G317 EsBUU 0313 LDK oR69<TOZ200B8 GET CMD & DATA 
000685 U319 E570 UUFF AND SROg=XVFF SO SAVE *5B* DATA 
Goves? Uusle 906 0337 Bee SHO Z8C! DATA_IS Ok 
V068 | 31¢€ 9UG OU: <l0¢ : | 
volebs O31 3340 OFCS LBT <IPFLo=xt2t SET FLAG FOR "15*/*sBe PRINT 
i132 JOG2 
VOUb68BY C321 4045 | SOR BR4 98 GET TAG 
GUU69U U322 C570 YOOF AND SR49=X"OF?# GET TAG NUMBER 
QOU0o9L G324 CFOU OFEY STR $R49<TEMPC 
O0U692 326 380 LFTB LAJ $B59<CRLFE | | 
OU0693 U32es U380 OF33 LN oB5e<PISBC PRINT "IS" / "SB" DATA 
UU0694 on Coot OFC] Lot <ERFLs=Xt"O1? SET ERROR FLAG 
U 
GUU695 ee ce UFC5 LoF <IPFLe=xt020 CLR 1S/S6 FLAw 
i 3. v002 Ps 
GUG096 0330 U380 UD33 LIN $B5o<GUIT HIT BREAK TO wUIT 
O0U69T U332 0337 bC <fO2g00C CONTINUE 
UV00698 U333 0334 DC <S+oAF GET OUT 


Pile SmbodethkteV Cs 


VUUESY 
QBUUTUOYU 
UUUTUOL 
VULTVE 


UUGUIOS 


ULUT SU 
vvU (31 
UUU 132 
GUuUul3o 


UUUI34 
UUUIBDdD 
VUUT36 
UVOVIZT 
UvU 136 
UUUTBY 
UUU14U 
UUU 4h 


UUUT4e 
UUUT43 


LUV 144 
UUU 145 


UVUU0T46 
VUOT4a7 
UUOT46 
UDOL4aY 


UUU?T5U 
UUU/S1 
UUUT)5E 
UVUSS 
VOUT5 
GUUS 
VEULUM mond 

75 


NSNOOOOCSD 


UVOTTS 


VOUTT? 
ULUTTO 
UUOTTY 
UUUT8BU 
VOO7TEIL 
GUUIBE 
UU0T8S 


U33+ 
L336 
U337 
GO3sy 
U33u 
USS 
O3st 
G34U0 


NWA NO 


ToC CCoOCcC CCCerce 
~~ AN 


GOO Gobo UBWEWL 


CaN 
eFCcre CPOC FUrCH 


Cc 
& 
ce 


CCoCCCo CCeer 
WWE Www 
COCCUS CCocce 
FoR TCO COCs 


D360 
UV2U6 
BABU 
B28U 
ULUL 
U50U 
U3CU 
U2UU 


CrOereeercavrrererrenr cancer foe 
TOPONOCCCCEOCCUOC CC ROCC Tec’ 


eTerccwveeaccecerceu Tr ef CUT Kf CcUmn 
FHI WS WNOKWWwwCTWST CTW CNW 


coe 

CN 
ones 

cc 


Ccereceerw COT YF COM coer aceecene CTCCccece]e 
WRWWwTNCwR MOE K TWH KW CneweonoWWwRNFECLUC 
~ 


COCR OeCcCeFraenr NOeOaEMt KO OCerOanyaccerraarae 
Cececewremoece Tece cececececoccercecece 


mol tf 


STURKAGE MOVULE T&Ds 


dt 
TOZLOC 


FED 18, 


Liv 


UC. 
Tine 
Li 
bul 
Lind 
LC 


19Toe 
$B59<TDER 


s) 
<TO2U0BK,=zZ2'Ol10U' 


<TOZOOA 
SBOSeTDTE 
Z*O0cd0? 


END TEST 0200 


HK KKH IIH IK HH IK IK HII IKI HHH HK HIE HK KKH HHI IH HH IH HK RIKI 
* TEST 300 FIRST SEEK TEST 


x 
Fe me ee te ee we en ee ae ee eee ee ee ee eee ee Oe ne ee Oe coe ae Oe Oe ne ae “ae Oe SP OD Om om OD ae me OD OD OP ee ee ean en ee Om om 
TO300 CL <FLAG 
CL <ERFL 
LUK dbRlLs=2*03008 | . 
Sik pRl<lES) STORE TEST NUmé 
Lind bbO9<TDST *START TEST?® 
Ling $B59<TAGI TAG IN 
UC 2'D7008 CONTROL TAG Iw. 
Lo <TEMPAg=Z*01008 CHECK DIAGNOSTIC BIT 
boF <TOS00A OK DO SOMETHIWwG ELSF 
LIU $65 9<TAGO TAG OUT 
LC 2*D27C% | TRY TU CLEAR vIAG STATUS 
LiNJ $B59<TAGI TAG IN - 
re Z*Dg0U* READ DIAG STAIUS 
Lio <TEmMPAg=2'8? TEST HEAD SELcCT 
bUF >+SA 
Liv $B59<TAGO 
LC Z2'*D3 - SELECT HEAL 0 
Lind bB59<TAGI 
LC Z2*Det 
bA is) <TEMPAs=Z'FE® 
bor <TO30UA DIAG BITS CLEARED 
LVS $659<SBIS PRINT *IS/*Sb! 
bE X*O1? BIT 7 DONT CAKE 
LING >B59<TDER BAD COMPARE 
fora. HSS 2*0308° DIAG STATUS FAILED To CLEAR 
TOB00A Livy $659<TAGI] INPUT TASK ; 
xe é£*bD300°8 TEST HEADS LOADED 
Lo <TEMPAs=Z"08? TEST HEADS LOADED 
bisF <T0300D OKs GO ON 2 
CALL ZLVSTeZVSETCeoMSIND OPERATOR MESSAGES 
CALL LVSTeZVETCoMSINDI 
CALL Z2VSTe2ZVSTCeoMSIND2 
SA Livy obo 9 < TaN "vy? OR *N* RESPONSE 
me <103008 oye 
. be <T0300C rye 
TO3006 Lb <TEMPA,s=Z*u0? CHECK START biT 
bUF >+$A 7 START BIT IS UFF 
LINJ $659<TDER | ; . 
C Z2*O03124_ START LIGHT OFF 
SA LINJ $B59<TDER ; 
ie ise LC 20314! HEADS AGUS S g NO START 
TO300C LwJ $B5e<ISTATIL GET STATUS w 1 
Lo <STATLs=Z°8! TEST READY 
bbT >TO300C | WAIT TO CLEAR 
LNJ $B5e<TLSEC TIMEOUT 
xe 25 FOR 25 SECS | he 
SA ib >+$b LOOP WHILE wAiTING 
b >+$C TIMEOUT FINISHED 
$6 b >=-SA 
$C LN $B59<TAGI TAG IN | 
DC Z*D3¢ . CHECK HEADS LUADED 
LOH SR14<TEMPA INPUT DATA 
AND SK1L9=2°48! : 
Ciik HR19=Z*488 TEST BITS 1 & 4 
BNE >+$C 
LivJ $B59<TDER 1 & 4 ARE SET 
: ie £$0316" 
SC ie) <TEWMPAs=Z'C8? TEST 091964 
boF <T0300D OKe NONE SET 
LivJ era 
— oc Z2*0310 AT LEAST _ONE 15 SET 
TO300D CALL FVS1 eZVSTCsMSSTR DEPRESS START SWITCH 
CALL ZVST oMSTIME WITHIN 15 SECS 
LU $B5e<TISEC : 
‘< 15 15 SECOND TIMcOUT 
>+SA ’ TIME THIS PROCESS 
LAJ $659<TDER : 
DC Z2°0318* | TIMEOUT ON START BIT 
SA LINJ $B59<TAGI 
C Z*D3" 
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UU0/84 U3CD &280 UFE?. - Lo <TEMPAs=Z°88 TEST START BIT 
U3ZCF #8000 Pee | 
UUUTB5 U3V0 O5FA boF >-$A KEEP TRYIN 
Gu0TBO U3LL U0U5 | | _ RICE . OK=TURN eNGck OFF 
UVUTBI G3U2 D380 VES] TOZ00E LW $B59<T1SEC RESET CLOCKese 
VUUL8G U3u4% 0023 DE 35 eee tO 35 SECS 
UUU?I8S U3SD5 OFBD |. 7] b >+$b . THEN DO THIS 
VUGIIU USve v380 UCB5 LINNJ $B54<TDER - 
YVUUTIL USD8 UB20 ; DC Z*03208- SPEED BIT TIMEOUT 
UVOT9E O3b9 L380 OC5U $b Livd $B59<TAGI 
V0U7T93 O3bH L300  ~ We Z*D3* ; . er 
UUU194 U3LC 82860 OFET Li <TEMPAg=Z*4# TEST SPEED ACTIVE 
ae U3vVE 4000 in 
UU0UT95 U3UF Ud5FA boE >-$b KEEP TRYING 
UUUT96 Ustv OCOO0S  __- RTCF . OK=TURN THE CLOCK OFF 
UUUT9T G3tl b380 0E38 TOZ00F LNJ b659<TIME DELAY FORees | 
VOUT9& C3tr3 YVOOL | DC ee ; eeel MILLISECUND 
UGUTI99 U3r4 bD38uU UC50 LiNS $B5_<TAGI 
GVVo0U UstE6o vV300 te dC Z£*D38 : . 
UV05UL U3r7 828U UFE? Li <TEMPAs=Z'2" | TEST BIT 2 
U3ty 2000 | . ; 
ULUUs0e USEA U58U 0406 DEF <T0300G_ NOT ACTIVE 
UYU803 GC3EC U38U UC50 LINJ $B59<TAGI 
UV0504 UsEEK L200 __ We Z2'D¢e : DIAGNOSTIC STaTUS 
UUU805 O3EF 8280 UFET Lis. <TEMPAs=Z°*FE?t 
G3Fi FEOU ee 
UVU806 U3Fe UVU5b0 | T bGF >+S0 ; 
ULOGUT U3F3 L380 UD46 LING $659<SBIS PRINT *SBYysttse 
VUUG0o U3F5 OU00]) | DC X#OL* DONT CARE b6IT 
ULU8U9 U3Fo L380 VC85 LIN $659<TDER 
UUVolU U3F8% U322 . - DC Z2*0322° 
LUVsll G3FY L380 UC5O $C LIN $B59<TAGI 
UV0b6le G3FK L300 LC Z'D3¢ nr 
U0UGLS USFC 8280 UFET Lo <TEMPAs=Z'°1° TEST BIT 3 ‘ 
ot U3FeE 10UU ke | 
UUUsl4 U3FF 0560 T biF >+$0 
VUUELILS bC4euuU D38L UCBDS ~LNG $B59<TDER ; 
UUVslo G4Ue U324 7 DC Z*0324* | BIT 3 1S ON 
YVUVol7 C403 U380 OCb5 $D LING $659<TDER 
UbLsEle C405 U3Z6 _ cut ouge VS Z'*0326° | Bir 3 OFF 
GULsly G4lb6 b380 VE38 TO300G6 LINJ $B59<TIME DELAYeee 
UUUS2U L408 U019 LC 25 eeeFOR 25 MS 
U0Us2i L404 L38U 0C50 LNJ $55 9<TAGI 
ULUs2e G40 UV3Z00 | DC Z'b3" : : ‘, 
U0US25 G40 &2BL UFET Los <TEMPAs=Z2*08! TEST HEADS LOADED 
USUE O80 | 
UULsed4 C4UF G500 U4GlE boT <TOQ30GH 
UUUs2> U4ll v380 UC5U LINS $B59<TAGI 
GuGszo 0413 b200 re Z'*Dg? _ DIAGNOSTIC STATUS 
GUL6ET C414 8280 UFET Lis <TEMPAs=Z'08! TEST FOR VOLTAGE FAULT 
set le U4lo Us8U0U © _ 
OL0s626 O417 6580 ; 1 biF >+$b 7 
UUUS29 Usis U380 UCE8d LN $659<TDER . | 
UUO83U  UL4lLA U326 | DC Z2*0328" | VOLTAGE FAULT 
VG0s31l C4ly L360 0085 $b LIN $654<TDER ; pie 
UUU83e L4lvU U3360 | Ms DC Z2*0330! NO VOLTAGE FAULT eS 
UL0o33 USlE D380 VE3ZE TO300H LNu $B59<TLOMS \ : 
GU0834 U42e0 0014 DC 20 200 MS_TIMEOUT Nye 
VOUK3D U4el OF BU T %) >+SA GO HERE WHILE TIMING 
UL0s36 42d UFBU i be >+$b5 ; TIMEOUT 
VUU06837 0423 U38U OC50 SA LNJ $65 9<TAGI 
UUU835 0425 v300 VCE Z*D3" 7 eee 
UUU839 L420 8260 UFET Lio <TEMmMPAg=Z¢2° LOAD=kRTZ BIT 
L428 000 | palace, sgakte tga aan 
UU084U G429 O5FA bis F ><A KEEP TRYING 
OUUGs4l CG4#2A 0005 RTCF OK=TURN CLOCK OFF 
UUU84¢e U4d5H UFTF : NUP - >$-l XXXXXX 
U0643s U4eC OFBU U460 . b <T0300K oo 
U00o4S4 C4du 8280 OFE7 db Lo <TEMPAs=Z*08" HEADS LOADED ? 
U43U  U80U 7 
“000645 6431 0580 ae | bir >+ hu ; : 
UUU&S46 0432 6280 VFET Lip <TEMPAs=Z*208 LOAD® + RTZx% 
2, =U434 2000 | 
UULL4? F435 Ud566 - 1 bb F >+h$o 
UOVib4o 6436 L380 UCES LIN $65 9<TDER 
UUV845 0438 U33¢ mn DC Z*03324- 
LUU0S5U 0439 L380 OCB5 Sb Lind $B59<TDEK 
VU0851 bC43n 0334 | . DC £90334 © HEADS NOT LOAVED 
UULVS5e U4sC &28U UFET $C Lo <TEMPAs=Z'1!? DIBIT 
: U43t LOOU ie 
GUUS53 U43rF ~U58U i BBF >+$D  - 
UUU054 U44u U3600 UC8d LINJ dB59<TDER 
UVU655 U44e 0336 . . DC | Z*0336! DIBIT FAULT 
U0Us56 6443 380 JC50 $U LNG $B59<TAGI 
UGUs5? 445 bL2U0U . DC 2'De' DIAGNOSTIC TAy 
VL0555 L440 w28U0 OFET is) <TEMPAs=Z*08* TEST VOLTAGE FAULT 
. U448 Ox800 | ; 
ULUS5Y F449 0580 I bis F > ) 
GULUS6U L44A U380 ULBDdS LN $B59<TDER ear 
UUU661L F44C 033% © | DC Z*0338' VOLTAGE FAULT 
UUUS6e2 U44 U38U UESGL dt LING $B5e<T1SEC 
UUGo63 U44F V0005 . DC 5 5 SECOND TIMEVUT 
UUU064 U450 UFKBO j SA b >+$0 WAIT FOR TIMEUUT 
UUUs6d U4ol  UFBY T ts >+$C TIMEOU 
UGUs66 UL4G5e UFFE . $b b >-SA 
GUUL6? C453 L380 UL5U $C Lind $B59<TAGI 
VUUS66 F455 D300. VC Z£'*D3e : oe ctnng, = et at 
UUVVUS6y UL4b6 8280 UFET Lis <TEMPAs=Z2°48 TEST SPEED 61) 
U456 4UU0 . , 
UVUoTU 459 0500 7 i Bis T >+St 
GUGsTL V45A U360 UCK5 LNJ . B5_9<TDER oe . 
ULUsSTE L450 U34U | DC Z2°034Q08 | SPEED NOT ACTIVE 
Qu0e!?3 = G45uU L36U UC&S bf LiNU $B54<TDER . . 
UIVST4 G45F 0342 . ont teats, IS Z'0342° | SPEED ACTIVE 
UUU87TS C46U D38U VES TOU300K Lind $659<TIME . 
UUU6T6 UL46e OV2C UC 44_ ot 44MS DELAY 
GUU5TT L463 L380 VE3E Livy $B5e<T1LOMS 
OUVsTs U4od 0003 ie 3 30 MILLISECS TIMEQUT 
UUUS79Y C4660 VLFRU ; J bs >+$b : GO HERE WHILE TIMING 
UJ088U 4607 U38U UC85 ; Lind $65 5<TDER TIMEOUT 
GUUssl L409 U352 _ UC Z2*03529_ TIMEOUT ON FIwEeE BIT 
UUUG6E U46A UV38U UC50 | Sb LNG $B5e<TAGI 
V00S83S U46C L300 DC 2*D300° 
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U4ld U40u 
CULO UL4lo U5 . | bbF >+$U 
UUUB9U U477 L3e8U ULES LINJ $55 s<TDER 
UUGE9L Usly U354 | he re 280354" SLOPE ACTIVE 
UUUoGEe LelA D380 UL38 SD LivJ $659<TIM eee ares 
UsUb9S L470 UO14 © DE 20 20MS TIME DLY 
UUUS9S U4e7D L380 VC5U LNJ $65 9<TAGI 
UGUB95 U47F LUlGu : DC Z*D79 B 
ULUSIGH U4sU B2kbU UFET Leo <TEMPA,g=zZ*2't ON CYL ? 
a S. L4ue é00U 
UULs9I7F F443 G5OU 1 bul >+$A ow 
UVU0GEYs U454 828U UFET Ley <TEMPAs=z*1'? READY ? 
L466 1OOvL . 
UL0SSY L4ul O50U T bol >+$c | 
YVULUYOU L455 US8U UCB LIND $B59<TDEK 
VIUGUL UssA U344 | LDC 290344! UNIT NOT READY 
UVVVYVE L4yuy U3b0 UCb5 a ol LivJ 6B59<TDER 
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UUVY00H G4¥e U3b60 ULSD LivJ $B59<TDERK 
UULYOT C494 034% . LC 20348! UNIT NOT READY 
VUUY0E . $b CALL Z£VSleZVSETCeMSSTR STOP DEVICE 
L495 FBCO U003 
U497% D380 YU0O x 
G499  OFBU 
L49A Ll2u Pee : uf 
UVUUSO9 U44¥5 U38U UC5O bA Lind $B5 9<TAGI 
U4LVGYlL U49U U7U0U LC Z2*D7* | wes hes 
OULOS1L1L CU4S5r &280 UFET Lo <TEMPA,=Z'108 WAIT FOR READY 
L4AU 1006 
GUUyle L4Al U57TA bisT >= dA = 
QUU913 U4Ae U38U VES] LN $B59<TLSEC . ao) 
OV0¥14 U4A4 OGOF UC £5. 15 SEC TIMEOUT 
UUUYLD F4A5D UOFBUG | T >+$0 
GUUY1Lt L4A6 L380 OCS LING $65 9<TDER TIMEOUT FAULT 
GUGy17 U4Ae U356 ; Ve Z°0356* 
VLOYlo G4AY L380 OC5U oC LINU $65 9<TAGI 
OGUYLY U4Ais DOUG ~ bC Z2*Dut Fe ee es, 
OUGyY2U USAC 6260 VFL? Li <TEMPA,=Z44!9 40/80 OR 150/300 MBS ? 
G4hE 4000 | | 
OOO¥Y2L OU4AF GU5UU I biT >+3d _ , 
GUU9YZe U4uu 5CU6 Lov SR5es6 6 SECS FOR 40/80 
GOU¥2Z5 Usbl A&BTU U358 LOR $R2—9=Z*O358t DICT ENTRY FOR 40/80 
OGUY24 U4b3 UFSBU T b >+$ée ge My 
UUUG2Z> F404 5CUb SD Loy $R5—e=11 11 SECS FOR 150/300 
UUUY2Z60 U4b5 ABTU U362 LuUR $R2 9220362! OCICT ENTRY FOr 1507300 
pe ULUG2ZT U4eul 8255 at $t NEG =$R5 COUNTER FORK 1 SEC TIMER 
OUU9YZo L450 AFOU U4SCF . STR $R29<TO300J STORE DICT ENIRY 
OUUG29 L4bA UL3BU UC5U $F Liv $B5 9<TAGI 
UUUY3U UL4ne V30L De Z*D3 operat ; 
000931 G4pv 8260 UFET Li <TEMPAs=Z*88 TEST START BIT 
GuUy3 raat eas bbT $F tage FOR IT Tu DRO 
UGUY3e U4CU U57TA b >= U Pp 
000933 G4Ci 0005 - RTCF -_ OK TURN CLOCK OFF 
OUG934 U4Ce U366 VLE38 SA LINS $B59<TIME : ee 
GUUY35 U4C4 U3ts DC 1000 DELAY 1 SEC 
000936 U4Cd STFU. bINC $R59>—-SA LOOP FOR 6/11 TIMES 
000937 U4Co L380 UC5O Liv $55 9<TAGL 
UG0G30 L4lu b300 ie Z2'D3¢8 - 
OUU93y4 G4aCy b2bU UFET Lo <TEMPAg=Z°4!8 TEST SPEED 
U4Cyu 4000 7 : 
ee eey Eee Bee cus pee 388M toe 
441 U4cu 36U UC Nw $ o<T ; 
GCOU94e U4Cr UO0U TO300U DC DICTIONARY GOcS IN HERE. 
060943 - . %D CALL LVS eZVSTCs MSSTR START DEVICE FOR NEXT TEST 
G4bU FBCUO UUG3 
U4le U380 GOULD x 
etes Yee 
j4UD Zu 
OU0944 U4beo U38U VFI12 db LINU $B59<ISTATI GET dag bake wOKD 1 
O0UG4d U4ts 68280 VEFES Lb <STATLo=Z'8? TEST READY 
G4LA 8000 | | | 
OOO¥46 UL4bse USFBE bbF pe$o WAIT FOR READY 
GU0G47 U4ue L380 UOCDL $C Livi $659<TOTE _ 
OUU945 U4bbk U300 bc Z2*0300% END TEST 0300 
U00G4Y * 
OULY5U * 
U0UG51 % 
OOU95e HK KK IIH HHH IKK AKI IKE HEIKKI KTH IKI KEK KHIR IKE HE KER ERE ERE RIR 
000953 * TEST U500 LYNAMIC RTZ TEST 
000954 % 
Gu0gse 4b TOO UFC2 MOS eG peng ee aie at 
VOG5o6 4UbrF 8700 UFCe <FLA 
OOUY57 UsSki &700 UFC) CL <ERFL. CLEAR ERR FLAY 
000958 O4t3 9870 0500 LDR $R19=Z*05008 LOAD TEST NUMOER 
000955 C4t5 YGFUG UFEG STR $Rlo<TEST 
QU096U) UstE7 L360 UCED LNJ $B5 9<TDST "START TEST® 
Stare USEY b36U 0C50 Lid $63 sc TAGl 
0096e G4tBb U700 Z 
0UU0963 ogee aay UFE? Lo <TEMPAs=Z2*O]1* CHECK DIAGNOSTIC BIT 
G4EE O100 
00U964 G4tF 05460 O4FF bBF <TODOOA 
BeuceL ee ooo uc50 tig 20035 oot 
1466 4b: 
UOLY67 bere Bee0 OFET Lis <TEMPAs=Z*FC? CHECK FAULT biTS 
O4Fo 
OOO968 G4t7 0580 U4FF BEF <TOSOOA NONE ARE SET 
= OUUG69 U4SF9 U380 0b46 LN $B5_9<SbIS GET SB/IS DATA 
aia OOOYTU UsFtb 0003 bC X*O03¢ tz DONT CARE MASK 
VO0S71L G4kC 0380 OC&5 LNJ $B59<TDER 
Loi O0OY7TE UsFc& 0508 bc Z*0508* | CANT CLEAR DIAG BIT 
iene 000973 hl rane OFE?7 TOSOOA Lb <TEMPAs=Z'*1?* TEST READY BIi 
GOUL 000 
UOU97T4 G50e 0500 u52D biT <T05008 AOK=SU FAR 
000975 0504 0380 O0C50 LiNJ $B5e<TAG]I 
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UO02ZU15 


UUdU16 


VuUcUuUlT 


O02Z01d 


UUZULY 


UUZUZU 
UUZV2] 
UUEZU?S < 
OUZU23 
UUdZUL4 


UULZULD 
UVULZULZ6 
UUduU2 7 
VUZULb 
UUeZULY 
OU2U30 
UUCcU3]L 
UU2ZU3¢ 
OUzU34 
OUguU34 


VUCZU35 
UUEU30 
UUCZU3T 
OUZU3B 
UUEU39 
OuU2ZU4U 
VOdZU4Gi 
UUCZU42 
UULZU4GS 
UUZU44 
VUZU4 
UuU2U4o 


UUZU47. 


UOLZU046 
OUEU4y 
YUucuUdU 
VUZU51 
UUEUDe 
UUZUd5S 
LUZUS4 
GUZULD55 
UUcuUSe 
UULZUD7 
UUEZUSb 
UUEUDY 
UUZUbU 
UUEU6i4 
UUVevb6e 
UUZL6>3 
VUZLO4 
UUEU65 
UuUdUbo 
GUdULbB7 


GUZU6b © 


UUZULBY 
VOZUTU 
vUEcuUT] 
UUCUTE 
OUZUT >» 
UUEUTS 
UUZUTd 
YVULZUTH 
GOOZUT7 
UUEZUTb 
VUEZUTY 
UUZUBU 
ULUZUBL 
LUdUBE 
OUael&B3 
UUZUBY 
VUZUBD 
UULUBb 
UUdUus7 
UUEUBY 


CCCecccncec 
COCE COCCI 


UC 


ETRE NTC THNwe 


ereaeom Ceecececacaccraroar treerm Coar racer Peer 
Coceocc FOC CeCHCOCCRKRCCCN CaOCCC an~nccc KPCCe ecec eaecec 


Ce CUT YF SCCeCRKCCCeELOCCTCCCOT CCccenmT KY cUoT cCceyrTr coCcuT 


TOME  OWWOPOCHONNCH NTE NMNTwe 


Ceceececcceceocecocecececececccocceocmccceocecmcecccoceoccecmcecmceccoonm 
PNT DTT TT TT NPT TE PNT Tn TH 
Shee he Seer a a a eae ae oe ee ee ae aoe 


STORAGE MODULE T6Ds FEB 185 1975 


CALL ZVSHZ so TEMPBeASCBF 


CALL 2£VS1 sASCBEF 
CALL ZV$1) »MSSB 


CALL ZV$HZ 9 TEMPAsASCBF 


CALL £V$1 sASCKF 


LivJ $B5e<QUIT 
UC <T1lUOIlE 
—  bC <+S$F 
{TOOT bLUEC $R49<T1001D 
$ is) <ERFLo=xX*]° 
bbr >+SA 2 
LING $B59<TDER 
De é2*1034¢ 
SA LDR $R19<TRKAD 
Inc =$Ri __ 
CM SRI s<TRKMX 
BLE <T1UO1C | 
TILOOLF LAU $B59<TDTE 
DC Z*1001" 
CALL ZVSleZVSTCoMSETD 
ey <START 


% Ke Ok 
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CONV "IS* DATA ASCII 


PRINT HEX "159% DATA 
PRINT *Sb& 


CONV #58" DATA ASCTI 


PRINT HEX *Sb* DATA 


END TgD TESTS. 


HHH KH HHH KKH KKK KKK KKK IKK KKK KK KEE HER KKK EHR KK IHR KKK KKK KEKE KH 


: SPARE SUpRUUTING 


LL NUP >$-1 
NOP >$—1 
NUP >$-1 
NUP >$~-1 
NOP >$-1 
NUP >$-1 
NOP >$-1 . 
NOP >$-1 
NOP >$-] 
NOP >$-1 
NOP >$-] 
NOP >$-] 
NOP >$-] 
NOP >$-1 
NUP >$nl 
NOP >$-1 
NUP >$-1 
NUP >g-l 
NUP >$-1 
NUP >$—1 
NUP >$-i 
NUP >$-1 
NOP >$-1 
NOP >$-1 
NUP >$-] 
NUF >$~] 
NOP >$-1 
NUP >$eol 
NOP >$-1 
NOP >$-1 
NUP >g$el 
NOP >$-1 
NUP >$-1 
NOP >gel 
NUP >$-1 
NUP a 


rn NUP >$= 
: KOGM FOR CUNSTANTSs ETCe 


Ke SV SAF 90 


HHH KKK HK KI KKK HK KIKI KKH HHH KHER IKE IKKE KEE KER K HIKE REE KEK EERE REK 
HH HK KKK KKK HK KK KKK IKK KEKE KIRKE IK HIER KKK RK KR RE RKEKKK KH KEKE KE EKER REE 
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OUZUBY L KKK KEK KK KKK HK KKK HK KKK KE KKK KEKE KEE EK ERK KEKE HHH EEK KEKERKREREKEE 
GUZU9U * 
Cyote. : SUBROUTINES 
2U9¢ 
VUZecuU9s KKK KKK KK HH K KKK KKH IH KKK KH IKK KH HK HERE KERR KK KKH KHER KHKKEKEKRKEREREEK 
UUZU94 * FAULT RESET/REALY CHECK ROUTINE 
UUZL95D * 
LUEUI6 ye Be ie ue es ee 
UUZU9T UCe? UF&O UC4F FRRC STB $B5 s<FRRCBS 
UUdu9Isw = LC2Y LU3bu UC52 FRKCA LAY $65 9<TAGO TAG OUT | 
UOVeu9yG LCeb vUeZTO | UC. 2'*Dg708 CLR DIAG FAULTS 
UV2Z1i0L UCe2C L3bU UCdU Liv $B59<TAGI TAG _IN S 
UUZ1U1 Cer UTbG DC Z*p7" CONTROL BYTE 
UUE10<¢ a eae UFE7 Lu <TEMPAg=Zt10# UNIT READY ? 
uC31 JUG 
bUZ10353 UlSe U586 UC4y bbF <FRRKCC ERROR 
OU2Z104 CC34 &260 UFET Li <TEMPA,=Z*O]? DIAG BIT 7? 
UC36 UlLO hee rere 
Uugi05 OFC37 U5bU OC4C bisF <FRRCB OK 
UG2Z10b OC39 v3bL UC50 LING $B59<TAGI 
GUelO? GC3b Le2UO LC z'Oe2" vA gue che as ; 
UGZ10%8 OC3C wébU OFE? Lio <TEMPAs=Z'*FE* CHECK FOR ANY FAULTS 
GC3E  FEUC | 
UUZi0G UC3F Ud50U _ ] bboT >+hA 
UGé2éll&u GC4G D380 OC8B5 LINJ $B59<TDER ; : 
GUelll GC4e O0UE DC 2*O008"' NO FAULTS SHOWING 
GUdlle GC43 U380 Ub46 dA LNNJ $B59<SBI1S GET SB/I9_DATA 
OUeL13 GC4Hd. OO0U) / os DC X*Oir | TEST ALL EXCEPT PROTECT 
Uyvell+ GC4o vU3b0 UC&5 LINJ $B59<TDER ” 
GUOZlls GC4s UCOLO ee ie Z2*Qu10" DISPLAY BITS dET 
UVello GC49 L360 UC85 FRRCC  LINJ $B59<TDER 
OU2Zi1l? OC45 vVO9S6 | aka: ves Z*0096" ~ 
UUZL1& GC4C LCBO OC4F FRRCB LUé $659<FRRCBS 
OU2l1ly UC4e 8385 JM $B5 
UU2 leu : a Me eee. eae oe 
UYel2i LC4F LOCO FKRCE5S KESV SAF 90 
UU212é * 
UVuEgL2e3 * 
VUE ied KH KKK HHH KIKI HK HH KI HK KK HK IK HHH KK KKK KIKI HR KKK KKK KEK KKK IKKE KEKE KEKE KE 
UUEeled * LAUNCH Lo JAG CUMMANDS 
UUE1L2b6 % 
ULele? aa * pid . 
Uel2b UCdU 8754 TAGI CL =$R4 SET DIRECTION BIT 
Uudiey CCoL VUFBU 1 b >+SA : : 
UVEZ13U UlLded 4C4O TAGO LUV R49=X"408 — SET DIRECTION BIT OUT 
VUZ1i3L UC53 CFOU UFD4 dA STR bR4a<TASK _ 
UVE1 Be UC55 C400 Llfo OR - R4e9<]OREAD  - 
UU2135 OCS7 b&6160 OFE? SA 1ULD <TEMPA s=$R49<D7] 
UC59 V054 | 
UC5a O0UU UFAF = | 
UUZI34 UCdC O7FbL b1OF >-$A . - 
Vu2l35 UC5v CBT5 LDK dR4 9 *$B5 GET DATA 
UVUZ136 UCbE 6054 . Sb lu =$R4e<OTTASK OUTPUT TASK WuRD 
| UC5F UOULO LIFLD ak | 
UUZL37 OCol UTFb bIUF  >=-$p = 
ULZ130 UCoed DLF&O UCbL ots $65 9<TAGS fs 
VUZ139 UC64 8980 UFD4 . CMzZ <TADSK i 
OUeg14u Gl66 0300. T BG >+S0 oy’ 
VuUel4l UCol D380 LF 12 i Linu $B59<ISTATIL STALL sae 
UU2Z14e LlLOY LCBL OC6C oC Lup $65 9<TAGS 
OV2143 UCou% &385 JMP $65 
UvEel 44 * ae . 
Ub2145 UCo6C VOU TAGS RESV SAF 90 
VUE 146 % 
UUeL4/ il 
OVE1L4oa KKH K KKK HHH KKK IKK KK KKK KKK KH KKH KIKI KHER KKH KKK KK KEKE K HHH EERE KKK KEK 
OUEZ1L4y x 
Gude Lou * STAKT TeST 
UGElSi * 
VUZ 152 7 x . | 
UU2Z153 UCeov vFRU UC8U TUST = ST $65s<TDSTK5 
UVEZ154 UCorF D360 OF7b Lind dB59<CRLE _ 
UU21L55 a 7 CALL 2VSTeLZVETCoMSTEST ‘TEST! 
UCTL FCO O0L3 
UC713 wuv38U VOUOD x 
eae OF 8U 
UCT& 1181 = 2 
UUO21L50 CALL ZVSTHZsTEST PRINT TEST NO 
OCT? FKCU 0003 
UCTY L380 L000 x 
UCTo OF BO 
ok gee NEE “OPER: <n c. Riel. ments 
UG2Z15?7 CCID vBCbO UCBO Lub $65e<TDSTB5 
UVUE1L55 GCTF 8365 JP $B5 
Que 5y * 23° & ; 
YVUgL6buU  UCBU VOU TbSTbdS kKeSv SAF 90 
UUEelol * 
vUZLOe * 
UUd164 KKK KKH KKH KKH KH KK KKK KH KKK KKK KEK KKK KERR KKK K EKER ERK KH HHH KEKE 
UUZ164 % | 
UUdl65 | | La . soi - SPE ENP rere 
UG2Z166 UCsli wees OFC] TDtR1 Lo <ERFLs=X*02! TEST FOR CONTINUE MODE 
een 0) Ox OL C1 0a 7 ; 
UU2ZL6? OCK4 O50G eet, bul >+$C_ a) Hapa Ae 
UVEelboo ae oC UFLd5 TOLER SAVE <SAVE™1,=-1 SAVE REGISTERS 
UC8 F 
UUZ169 UCses C8OO OFEB oC LURK SK49<TEST GET TEST NUMBLR 
UlGElLTU UCBA Cb7U FFOO AND DRY e=L*FFS STRIP SUBTEST 
Uvél7L1 GCBL C47 ar $R49+$B5 _ GET DICTIONARY ENTRY 
UuUdiTe UCsev LEBO UCLC $B59<TDERBS SAVE CONTINUE ADDR 
UOZ173  GUCsorF CFUU 1157 STik $R49<MODICT _ PUT IN MESSAG. 
Uud1 74 | * CALL EVS1eLVSTCeoMSTDER PRINT ERROR MuSSAGF 
UC9iL FLCU 0003 | 
UCG3 vV36U VOLO x 
UCY5 UFbb 
| C96 113.6 es 
VUZL75 | ae . | CALL ZVSIHZ sMSDICT WITH CICT ENTRY 
UCY7? FbCU GOO3 : 
CC9Y¥Y L380 OO0U x 
UCYoH OF&U 
ae CC9C 1157 : tee eden ene luk 
UV02Z176 UCSD &28U OFCS Lb <IPFLe=Xte? IS ? SB DATA PRINT 9 
UCSF O000E 


TlTltLe Shibses*hEV C%, 


UU2Z177 
UUEL TY 
UUE1LTY 


LUC1BU 
VUEL8L 


UUE2L bE 
UUCZL&S 


VUCZ1 BY 
VUde0do 
UUEcVY 
UUdElY 
OUgell 
UUZele 
OUéedls 
GUedl4 


ULedlbd 
UUgélo 
Gudel? 
UUeclo 
UVUdElY 
VUge2u 
VUdéeel 


UWedee 


UUEdes 
VUE e4 
UUEed2d 
VuUEeeb 
VUEL2T 
UUdEeb 
VUdE2dY 
UU?de3U 
VOdeE3l 
VUdEeBe 


UU2Z233 


UUee 34 
UUde34 


UUed36 
uud¢e3? 


GUZESu 


- UU2E3G 


VUde4uU 
UUEe2Z4l 


LUEdZ6] 
OUdd62 


O0UZ263 


UCAU 
UCAL 
LCA 
UCAS 
GCA 
UCAY 
ULCAY 
UCAB 
UCAC 


UCAU 
UCAF 
UCblL 
UCbe2 
uCcb3 
uUCbdD 
UC v6 
Glu? 
Clby 


UCBA 
UCBC 


ceccec CeCecceccce 
Coecer Cece ce cee 
ROREN Ee RRR ee Re eee CO 
ORE TO CECNO LORY TCS 


U560 
V360U 
BbIUU 
UGU1 


feo CV CceT crv $CoCecoTr c$cccar 
NOON THT BAC TOO WR TT WOANCNE 
ree Tereeecr aerTnerTteereaer oeeerecea 
Tees Tecece CereCCCTCCECCC WCOCNC™ 


eeeear Tse arn Cecenaer erceoeroeoaar coean 


CC 6CrP CCT CrecUurTr ceacecrceTr CcCcaceCcUT Cece. 
CSC BNR TOM Te NST OCeTeK TC MCAT TOE TTS 
VoRecCce WCece Ce CCcaercecec CARCONRCCC cecwy 


Cc 
(on 


Ceocrcce 


ce 


COrcon CHererFftececet 
MEER CNCNFOMTaASES 


TOM CCwOCccannTnnw 


BMCcc CC 


Uub32 


00UQ3 
UUOO 


OFE9 


VUU59 
VU4E 


0003 
vou0d 


STURAGE MODULE T&D, 


1 


Se a eT 


bbF 
LINJ 
DA Lol 


Lor 


SE Lt 


$b CALL 


L 
TOLER rant 
oC Sik 
SE Lub 


* 
TVEKES KLESY 
* 


HHH KK HHH KIKI K HHH KK HHI KI KH IKK HIKE KEKE KEK HK IKK KKK KKK KERR 


Fro L&>» 


197% 


>+SA 
$B5e9<PI SBC. 
<ERFLe=Z'U001'8 


<IPFLe=xX*t2? 
<FLAGs=Z*'1]09 


>+$C 
ZVS1»eMSTMUF 


<ERFL o=X*O2Z!* 


>+$b pee 6.28 
$B54<TDERGS 
a / Seats 
LZVSTe¢LVSTCaeMSREGS 


$65 9<CRLF 
$Bly<SAVE-] 


K5 9==4 

S67e+Sb1L 
$B5_y<LNGASC 

2V$1 sLNGAD+$AFH-1 


SRO q>—SE 
bb59<CRKLF 


DRS 9 > SC 
$69 9<TOTE 
x*Or 


<START 
SAF oO 


c FRINT TeST END wt SSAGE 


TUTE Luk 


dC 


to 
DA CALL 


$b Lo 
JrP 


* 
TUTEbS Ki Sy 
x 


KKK KKK KKK KEK HHH IKI RHI HIKE HHH KKK HEHE KKK KEKE KKK IKKE EKER KER 


$R49+%B5 
$B855<TOTEBS 
gR4_g<TEST 
SR49<MSTE 
ZVSbHZ»MSTEoLFCR 
<FLAGs=X*"02! 


>+SC 
ZV$leMSTEP 


>+$o0 
<ERFL»s=Z*0U001? 


>+SA 
ZLVSTsMSTEP 


>+$o0 
Z£VSleMSTEF 


$59<TDTEBS 
$B5 


SAF 90 


: YES UK NO KESPONSE 
* LNI $5659<YSOWNU 


* ONT KETURN 


+30 
ZV$T e¢ZV$UC oMSBLNK 


>=-SA 
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NO 
PRINT 15/56 DaTA 
SET EKROR FLAG 


CLEAR [5/56 PKINT FLAG 


OVFLOW FLAG 


OVERFLOW MSG 


CONTINUE 


EXIT re 
GET CONTINUE ADUR 
PRINT ALL REGISTERS 


Lom pew 


~ KT 
TART 


ADD TEST NUMBER 


TEST BYPASS Awb RESFT 


BYPASS MSG 


TEST FOR ERROKS AND RESET 


TEST PASSED Me SSAGE 


TEST FAIL MESSAGE 


INPUT "Y*® OR #N® RESPONSE 


RETRY 


TEST NUMBER 


TITLE SMUS2s*REV C's STORAGE MODULE TéDs FEB 18s 1978 , PAGE 28 


OU22Z64 
ChCP araoke) 
UUE266 


Lud 2383 
VU2Z684 
Goéebd 
OU2e8o 
0028? 
VOL LB 


002321 


UU2Z 343 


G02 344 


OUE345 
002346 
UUE3s47 
UUd34n 
QU234Y 
QUZ35U 
UOG2351 


GL24 bDCk8L UD32 $b LO’ $B5 +<YSNOBS5 = 
ubz6 vbC5 0001 LAB $65 9$65 o SAF BUMP RETURN AUDRESS 
Ubésy DFBO UD32 | oTb $85 9<YSNOB5 
ULb2ZA D380 0E38 $C LING $B5o<TIME 
bveC U3ER DC 1000 WAIT 1 SEC FOR ANY CRLF 
Obev L380 OF7b LJ $B5 9<CRLF- THEN SEND ONE 
Ub2F DCB8U UU3e2 Lbs $65 4<YSNOB5 
OL31 6838b ; JMP *SB 
Uv32 U000 ~ YSNObS KeSV SAF 90 
* 


KK KKK KIKI KKK KI KK KKH KI KKK IKK HK IKKE RHR KEK IKKE KEK KKH EKKKERKEK 
* TEST FUR ATTENTION FROM CONSOLE 
* [F BREAK, INCREMENT RETURN 


x 
x 

ULb33 ULF&O UL4 QLIT  STts $65 9<QUITBS ; a 

: CALL ZVSoRK TEST FOR BRK 

GV35 FbFO V0O01 

ULb37 V360 VUOU x ia — oe 

Gv3s9 8980 0000 x CMZ <ZVabKF BREAK=1 

UD36H O9U0 a bE >+SA _ NO BRK 

Ub3C ULC&G UD45 LOb $65 9<QUITBS wo 

Gb3k— DBCS JOOl LAB $B5 9$65.6SAF BUMP RETURN AuDRESS 

OL40 UF&U0 OD45 STt $B5 9 <QUITb5 

UV42 vUCbO UD45 SA LUb $B5 9 <QUITB5 

L044 638L . JMP *$B5 

Uv45 O000 QUITBS RESV SAF 90 
x 


KKK IHK KKK HK HHI IK HRI KEK KH HK IKK KKK EKER K KKK KKK EREREKEK 


* SETUP "Sb" / "15" DATA 
* TAG LABLE ILN_R4 | | ; 
: DONT CAKE VATA INTO R63 ACTUAL INTO R7 
# ag $b59<S615 
: X* HH! DONT CARE MASK 
% 
UL046 E875 Sb1S LUR $RO9+$B5 GET DONT CARE MASK 
UL47 404% . SUR $R498 | SHIFT_TAG LABLE 
Gb48 C570 OUGF AND BR4e=KIFS SAVE TAG NUMBER 
UL4A CFOO OFEY9 STR $R4e<TEMPC ae 
UL4C CO8O OFE7 Lon $R49<TEMPA SHIFT RETURN VATA 
Ub4t CFOO UFET STR DR4—<TEMPA PUT IT BACK 
Uv5U E500 UOFET AND bROe<TEMPA SB DATA 
Ob52 F8OO UFET LOR $R79<TEMPA Is DATA : 
Uv54 8900 UFCS Lis <IPFLe=X*2" ET PRINT FLAu 
Obs6 O0Ue | : 
OLD57 8385 ‘ JMP $55 RETURN 
% 
HK HHI HK KK IH IKI KIT KI KE II IID IID IIIT AIA DALI ILI III I IIIA III 
: GET CYLINDeR ADURESS 
ULb58 DF&O OLTD GETCY STb $B59<GTCYB5 
ons ae CALL ZVST eZVSUC eMSCYNO ASK FUR CYL 
GLV5A FbCO 0UG3 : 
Gb5C U38G VUGO X 
UbSkE OF8U 
UDSF lOéF. . | 
Ae $C CALL ZV$SiIDsCYAD INPUT CYL 
Gveu  FBCU QU03 
ULbeg 0380 VOOO x 
UD64 VUFBL 
UDod OFAL ; ; 
GU66, 9800 UFAD | LDR $R19<CYAD 
Gbes 180U T bLZ SRL y>+#SA CYL IS NEG 
ULoyY 9970 VU336 Ciik Rl =622 HI CYL 
LV6b U3T7L 1 BG. >+$A >822 
UbLeC 997U UILGA | CMR $R1,=410 GOOD FOR ANY vEV 
Glbok 0360 ; | BLE >+i . 
CLorF 6280 UFC4S Lb sTDtnys=Z*80008 822 CYLS ? 
GU7i = =60GU : | 
GUL?2 Ud7C | bis T >+Su _ Ae aces YES 
wer _ dA CALL ZVSTeZ2ZV$UC eMSBLNK ILLEGAL CYL 
GU73 FbCU UUGS 
GD75 038070000 x 
GL?’ OFBU 
ULUTs 104¢ | age 
bU7T9 UFET ; b >= $C ; RETRY 
UUTA bLCBL ULTbD $b Lbs $B5e<GTCYBS 
GUTC 6385 JP $B5 
GLtL L000 STCYB KESV SAF 90 
* 
KHKKK KKK HI KK HHH KK KEKE KHER KKK KKK KEKE RK KK HEHE RRKERK KKK EKER KKK 
. GET TKACK ADDRESS 
% 
OL fi VDFS&O OLAS GETTK OTb $B59<GTTKb5 att 
Pare ree CALL ZVSTe¢ZVSUCeMSTKNO ASK FOR TRk 
ULs60 FBCO UV003 
UL&Ee b3b0 VOOU Xx 
UbS4 OF BU 
Gu8d 1144 ; 
re sya $C CALL ZVSLLsTRKAD INPUT TRK 
ULbso FCO 003 
OVsnu L380 0000 Xx 
UDSA UFBU 
Ubsis OFFO | 
Gb8C 9800 UFFO - LURK $R1ls<TRKAD | ar 
Ubsk 1800 } | bLZ SK1L—>+$A TRK_ IS NEG 
GuoF 9970 UU12 Ciik oR1,=18 HI TRK 
ULbYL O37TLD |. | by. >+$A >18 ; 
GL9é 99TU VOO4 CMR AN ea GOOD FOR ANY VEV 
GOL94 U380 | i bLE >+$ 
LULGYS 8280 UFC4 Lb <IDENs=2*40008 19 TRKS ? 
OL9T 4000 


TITLE SMUS2s 


eCcececoeccecec 
ececceccecccce 
ROM RRRERRRRRRARI 
WOU WUolb as WoW 
COAOoOeanrormurnuriu 
CUFfURFCCENCOUF 


U02367 


cc 
or 


cocecce 
ececcec 
REPRO RE ROR RR ACROR IR RS 


UUEZ405 
OU¢4U6 
00g407 
VUZ40o 
UULZ40g 


GU2434 
UU2435 
UU24%36 


GOuc4e37 
UUZ43u 


LO EE 
COCCCOCCOCCC 


Cc 
5 
Owbke TOEOWCNOWY, 


ccece cecececccec 


Cc 
© 


"REV C%q 


USTC 


C 
vat 
Co 


Sercecre-cromn 
Wa nCTNwYW 
Cempaee 
WNOAANC CO 


OOUG 


eCCcerecoemnm cerCCCceott 
WOATSTNWOH WOCoOTMNo 
CEoemeacanr ANCCTAEAN 
VOAmncee CeoCecnecce 


on 
QO 
© 
© 


IOP OC YPDIMNCCEMONNOCCrHwWwNe Neco 


Sree reer TeVvIcoeerr receeweocerncce 
CT CAaEMecrecFsfocerecPrCceeeercuce 


eCerFfceroeceerceae cece crucerca 


CT OCCe 


weceece 


Cea fur 


c 
Cc 
Cc 
cc 


Cc 
mn 
Cc 
NG 


CeCCCCco 
TT OOTe TTHTeo 


CO HTM e orn 


NM 


MINNA 


Cc: 


V1LO0O 
LLFD 
ULDEU 
UUVEA 
UCSZ 
UC52 


“OFC? 


ULF4 


ceccc 
ft Te Tre 
COSTS 
cn>Svc 


UFD5 


ULOO 
léde 


VL03 
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boT >+$o6 YES... 
SA CALL ZVS$Te2ZVSQC eMSBLNK ILLEGAL TRK 
- b >-SC _ . RETRY 
$b Lbo $B59<GTTKB5 
‘ JMP $685 
OTTKB5 KE SV SAF +0 
‘ 


HHH HHI IKK IH ITT KI IIT IIE TTT TIA III ITD HI III IIIA II III IDA ADIN 
. GET SECTUR ADDRESS 


x 

GETSC STb $659<GTSCB5 
CALL LVSTeZVSQC »aMSSCNO ASK FOR SECT 

$C CALL ZV$S$LDeSECAD INPUT SECT 
LURK $R1s<SECAD : . 
bLZ SRLe>+SA SEC IS_NEG 
CMR $R1o=63 HI SECT 
bLE >+$0 

SA CALL LV$STe*ZVSQC eMSBLNK ILLEGAL SECT 
b >p-$0 RETRY 

$b LUb $B5s<GTSCB5 

a JMP $b5 

GTSCB5 KESV SAF 90 

* ‘ 


KKK KKK KKKHK KEK KKK KEKE KR KKK ER KKK KKK KKK EIREKIEK KKH K KKK KERKEKEREKEAEKEEK 


. SEEK CYLINUEK AUDRESS 

* LNU $055e<SKCY 

* DC DDDD CYLINDER ADDRESS 

: FLAG = *Q0UK8* SLOW SEEK 

x 

SKCYS Lot <FLAGe=X*88 SET SLOW FLAG 

SKCYF LD $KR494+$85 GET CYLINDER VATA 
ST6 $B59<SKCYBS SAVE_RIN ADDRESS 
LURK $R3e9<BITE GET DEVICE NUMBER 
STK eet iil STORE CYL ADDRESS 
LING $854<SUCA LOAD CONFIGURATION worRDS 

dA luLbp 2TEMPAs<10 WRI19<D71 SET QUTPUT 
BIOF >—SA_ . - 
as) <FLAGo=X*8? CHECK FOR SLOw 
BolT >+SC _ 

. LURK $R4e=Z*O1008 LOAD SEEK COMAND 

% ts Io =$R4e<OTTASK SEEK 

bIOF >- $b 
: b >+hv- eats 

oC SRM SR49<SKCYBo=X* FFP STORE LO CYL ADDR 
SUR $R4 9% ; GET H] AUVOR 
SRM GR4e<SKCYAGSXtFF? STORE HI CYL 

LinJ ater haa Bias te 

SKCYA LC *D4008 HI CYL ADDR 

— LNG $B5 +<TAGO 

SKCYB DC. Z*D600* LO CYL ADDR 

LoiF <FLAGs=X"SF RESET SLOW FLAG 

$D Lous $B59<SKCYB5 

JMP $B5 

QKCYbS KESy SAF +0 

% 


HHI HII HK IH IKI IID IH IH II IDA III IID IIH IIA IIIA SII IIIS AAI III ID IAAI IAIN 
7 SETUP CURRENT DEVICE CHANNELS 


: S$KZ=CURREWNT DEVICE 


* 
CDCH STB $B5e<CDCHBS __ STORE RETURN 
LUR dR4 oe <DRIVEOe $R3 8 
STR $R4sDRIVE CURREN] DRIVE ADDRESS . 
LNJ $B5 9 <SETCHN SET CHAN ADDR FOR CURRENT URIVE 
Lobb $B5 9<CDCHBS 
8 JMP $65 RETURN 
SUChb? KtESV SAF 40 RETURN ADDRES»d 


* | 
HHI HI RK HIKER IK IKI IH III ITI I ITI III DIA III DITA TDA III IID IDI IID DAI ID AIL IID III 
: NON@EXISTANT RESOURCEs TRAP 15 HANDLER 


THI5 SAVE  <SAVEw1Ls=el SAVE ALL REGS 
LA $619<START : pect 
STb $B1ly<TSAILP SAVE IN CURRENT TSap 
CALL © ZVSTeZVSTCoMSMRT MISSING RESOUKCE TRaP 


PiTLE SMLS?e KEV Ch, 


UU2Z43g9 
OUd44U 
OUVE44] 
OUg44e 
VOE445 
QU2444 
UUEZ445 
002446 
OU2447 
UVUS 448 
OGE449 
UU2Z45U 
OUVE45O1 
OU245« 
GU2453 
VUc4+54 
O0U2455 
Uvd4+5o 
UU2Z457 
UUVE456 
UUE459 
OU246U 
U0246]1 
OU246¢ 
002465 


UU24 75 


CUZ491 


eececececececcece cco ceoce 


i 


ccec oC cececoococecoccccoccceoecccacccoccac occece cece ceececea 
NRSEKRSKRCKRS KOR] PERERGRCAGARCRERIPOPRCRIRORAIRORCRCAC RG RGROR ARON ROR RORGRORIAPRORCROASAORG  RERO ARS ROR AGRORS 
wera or Cetra ararr arrears aaaeaaaaaae £f$t f$PtPit 
PHHLH Ww WWwwwwwwWhnsr Pn pean nn oer er rrrrrereOCCCOCCOCO OOwW oOwowownd 


eccec cece cecccecececececcecacccccc”’ 


ORheC Co 


NMOUBRURECCONOCU SURE COO NOU SURE COCNOUVFAURYE OC CON CUFUNR 


CCCECecceccececcccce 
Ree re peer Pere ere ee 
RORGIE Ie bet ee Be et et ee eee 
Wn cr eg CNV FARE CT 


Cce -cecec 
mre. merrier 


WRK RERCRE RR 
cro Crane 


eceececececce cece cecececaec 
PPMP Cer ee emer rermr ree meee eee 
COUT SSPH HPD HL FS DDW 
KCHWOCEGCnVoeeCmeroranactfne C§@IM 


eceeccacecec 
Prem emer 
Nw NNN NOO 
TOPPER CTO 


Cc 
r 
~ 
7 


 Teoeceoeewwreoececenanw 


cecaceTeEromrnec ree 


Snr ef CLlCa 
cee Trecef 


SCENCCCOKOCANCCAaANMUTTONCEeE 
WETUCOCCOCCHECOCHOUNCCUFSS 


SCcoacoeyvFf fae 
NT OROONAAANTN 
Tl PNK OOOMmre 
ecececcecenrve 


Cc 
oO 
Cc 
(on 


0UGO 


UFEE 


U3E8 
ULFS 


CKecc 


ORE 
Cee ai 


TPEAN 


WMI NOCc NS 


Ceeccec ce 
CKRNMCO TC 
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RETURN FROM TRAP 


HR KKK KKK KK KIRK HK KKK EK KEKE KE KKKEK EKER KKK IKI KKH KEHAEREKREREEEKEKRE 


: HANDLE RTC KUPT AND CALIBRATE CLOCK 


RTCFC k&ICE 
OTR 
STR 
SUI 
VOR 
biv 
DIV 
bLEZ 
| INC 
SA NEG 
OTR 
LAb 
STb 
LeV 
ut 
KK KHKHKHEKK 
: CALIBRAT 
SYNCH CL 
RTCN 
SYNCHA CMR 
BL 
LUV 
* 
SYNCHB Luy 
~bINC 
biNC 


Vite Tu 


HAF HUUNAEOEA EE 
NOOR RA DRA AAD 
err NTCDA ONNEN HS 


AOwewew ano we wo fo wo 
CNY 


CAAA 
Crmn-~< 


>$-]1 


=$R4 

SET se ERRTCE 
<SYINNCHA 
SRlyeet 
aera 


SkK2q 
ORG eS YNCHE 


* 
: IF DOING INITIAL CALIBRATION, 


LOR 
BINC 
JriP 


SYNCHC RESV 


Nera the 
co H 


1,0 


(AT LEVEL 95) 


TEST FOR ROUNDING 
ROUND 

TIME FOR 1 MILLISECOND 
PREPARE FOR SUSPEND 


SUSPEND TO LEVEL 1 
DIDN*T SET UP FOR ZECONU INTERRUPT 


HHH KKK IKKE RR III KI IIT TI HII IK IKI DIDI IID IASI SIA IIIA III 
—E THE CPU FOR ONE SECOND 


mE NT 


LC » NOP 
C NT LOOPS/StC (/MS) 


SHOULD RUPT OUT OF LOOP TIMEC. 


NUBE OF 
TURN 
NEG NMBR TO Re=INIT FOR 1 MSEC 


LOOPS 
MSECS 


JOGOS EIISIITIISSGETT IG I  T  TE TIE 
N MILLISECONDS 


: TIMEOUT FOK 


TIME LDR 
NEG 


LURK 


HHH HH KIKI KH HK HK KHIM IK KIRKE KKK IKI KIER IK IRI IKK IKKE KKK KKK RK KRRERERKKEKRE 


$K19+$B5 


=$R] 
$R49<SYNCHC 
<SYNCHB 


* RTC INTERUPT ROUTINE 


* 

x 

T1OMS Lot 

TISEC LDR 
STb 
LDR 
MLV 
MUL 
Lo 
bBF 
DIV 
LOF 

SA STR 
STR 
LAb 
STB 
LAG 
STB 
LDV 
oTk 
RTCN 
JMF 


*® 
: INTERRUPT, 


TIMLVS Tos 


<FLAGo=Xt4t 
$R49+3$B5 


lF IT OCCURS,» 


GET NMBR OF MoECS 
SET UP_FOR FIKST MSF 
TIMEOUT - 


10 MILLISEC FLAG + OR = 8e3M5 
1 SEC ENTRY 


az 
zZ>e< 


Ae wz 
< 
MMH VSM eT MOH 


DAS NOAZ KANO 
r*—- 


oc2z oCcao coom 
AZP MD FT Ar 
thar Kn Ta340 


BRINGS US HERE 


Db $B59<TIMOTS 

LUR $R49+965 

2Tb $659<SAL5P 

LEV =Z*s000t+4+1]15 

HLT 

6 >$ek 
TImMOTS RESV SAF 20 
* 
KKKEKKEK 
* TIMER LOOP ne PTED BY DEV 
* LOOPS ARE TOTA AND STORED 
* ENTRY DEELARED” WITH LV1OSU R 
* LVIOTM ENTRY ACCUMULATES MU 
. LVLOTL ENTKY RETURNS SINGLE 
* 
TIMER STB $B5e<TIMBS5 

CL $R5 
$A LOV - S$R4ea~20 

bINC SR49<h 

BINC $R59<=SA 

LoT <FLAGe=X*10° 

LOR * $RO_g=Z*TEFE? 
$b Iu STOPIOs<OTCONT 
P bI1OF >—$b 
TIMB5 RESV SAF 90 


J 
0 
L 


BE panpearcn 


TURN OFF CLOCK 


BUMP RETURN AUDRESS 
PREPARE FOR SUSPEND 
SUSPEND TO LVG 15 


HEIKKI K IKK HEIKKI KIKI KHER IHRE KIKI KER ERK KKH IKKE KERR 


E EVENT 


b 

NE 

EVENTS TEMPB/TceMPC 
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GF4C OFB&O 
 . OF4— 1198 a ae 
; UGd 147 as CALL ZV$HZ oe TEMPBe VREL CONVERT "IS" VATA asctl 
one LF4E FBCU 0003 
| OF5U L380 OU00 x 
7 GF52 OFBO 
is GF53 OFES 
_ UF54 OFFé 
OUZ740 UF55 99800 UFF4 LDR $R1lo<VRBL+2 
QU<149 UFS5T D360 VED2 LNJ $B5e<VDTR PRINT HEX "JS" DATA 
UO2Z75uU — oo CALL ZV$i »MSSB PRINT “S6" 
GUF59 FBCO 0003 
GF5u L360 0000 x 
GF5vU UF8O 
sas UF5E LIDA - . . 
vuZ7T51 : | CALL ZVS$HZ oe TEMPAsVRBL CONVERT SB DATA TO ASCII 
GF5F FCO 0003 
OF6L 0380 GOGO X 
GFo3 OFB&O 
OFo4% GFET 
ee oe ua UF65 OFF¢ |. ; 
OUZ7T5<e UF60 9800 OFFS LDR $R19<VRBL+2 . 
boeuee GFos U3b6U OED2 - LINJ $B59<VOTR PRINT HEX "SB" DATA 
2754 
OU2Z155 UF6A GFUZ _ NUP >$+2 
QU2/(50 UFopn OUC8O OF6E SA LDb $459<PI]SBR5 
UUZ757 OFovD &3b5 JP $B5 RETURN 
VUE loo or * 
GUL2759 UFot vUd000 PISBBS KtSy SAF 90 
UU2 fou 2G GTI GIG GGT TG IOI JIG SIGI TI TRIE IIH 
ee : SET ALL CHANNEL CONSTANTS TO CURRENT DRIVE ADDRESS (poRT NUMBER) 
< 
OU2Z(63 UF6F 9BbU 1LILFée SETCHN LAb $B1s<IOREAD START OF CHAN ADDRESSES 
UV2764 OUFTL ABO 120A LAb $B2 9<CHANZ END OF CHAN AUDRESSES 
VU2Z7165 UF?3 9800 UFB4 . LOK $R1e<DRIVE RR AVE ADDRESS 
UU2 766 wee A, SETCHA SRM $R1o+$B10=2*01808 AD RIVE ADDRESS To CHANNEL © 
o U 
UuUZ7e? OFT? GDb2 Crib $B19=$682 
UVc/6o UFT& O20U0 LOFTS bL Sen 6 IF TABLE NOT DONE YET 
GUZ16y4 UFTA 8385 JMP $65 RETURN 
GUe T7U AWA RHE RAST aR RASE TNR RARE RR HHH HEHE HH HHH EER ERIE RIEK 
eee . DO A CAKRAIGE RETURN/LINE FEED 
(< 
GU2773 OFT DLDE8U UF&6 CRLF STb $65e<CRLFBS— 
UG2LZT74 aa cs CALL ZLVSTeZVSTCoNULL (CRLF) 
UF7U FBCU 0003 
GF7F v380 UUOOD x 
UFS1L OF8U 
aaa UFbe OFLDO | : rae 
UGZ77> UFb’3 UC8O UFBE LO $B5e<CRLFB5 p 
GU2(76 UFK&S 6385 JMP $B5 RETURN 
Guer?? | / 
OU2l(?s UFsbo L000 CRLFBS RES SAF 90 
GO 174 HH K HHH KKK KKK IKKE K KIKI III KKK HHI KKH TIE IKE KKH HH IKEA NK AKER EN 
Looe : INVOKE THE PATCHING LIBRARY ROUTINE 
UU2 (8< aoe PCH CALL ZV$PCH B <START RESTART 
Gro? FRFO O00] 
; . UF&Y LD38L LUOD x sh 
V0¢d/83 UF&b OF&O 0100 b <START 
OU2 164 HHKKK KEKE IKKE KKK KKK IKKE KK IKK IKKE TBR IEA IEE HIRI HIKER ERE ERIK 
Buea. : SET UP BUFFER FUR FORMAT wRITE OPERATION 
UU2 7186 
UVuc?87 UF’L DFXO UFA6 SUF b oT $65 9<SUFBB5 STORE RETURN 
YUZ/86 UFsrF 9C8O UFCO Loe SB1e<JJPT BUFFER ADDRES») 
Uucd?89 OF91 £830 OFBY LDR bR69<DXFNeSR3 LOAD CW) 
UUEZ(9U UFOS FR3U DFbbD LURK $R79<DOXRNSSR3 LOAD ceé 
UOZ/91 UFYS F570 FFOU AND SRT ,=Z*FFOO? SET SECTOR COUNT To ZFRO 
UVE19e UF9T Y8U0 UFD3 LOK $K19<SECTRK SET SECTOR COUNT 
OU2Z793 UFYY ABDd5] LDR $R2e=$R1 SET UP RANGE — 
UUZI94 UFYA BALL LC =$Re NUMBER OF JD's 
GU2Z195 OFYs 2002 SUL R292 4 BYTES PER Iv 
GU2796 LFSC AFOO OFE7 ae STR $RZ29<TEMPA STORE RANGE 
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